#! /usr/bin/perl
use strict;
use warnings;

#det her er en test

my $memory = `cat /proc/meminfo | grep MemTotal`;
$memory =~ s/.*\s(\d+)\s.*/Memory = $1 /;

print $memory;

my $uptime = `uptime`;
$uptime =~ s/.*\s(\d:\d\d|\d\d:\d\d),\s.*/Uptime = $1/;

print $uptime;